home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 53
/
Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64
/
parameter v1.2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
118 lines
10 poke53280,11:poke53281,0:poke646,15
90 poke53272,23
100 ifq=0thenq=1:load"v1.2",8,1
110 ifq=1thenq=2:input"[147][203]oalaname ";n$:n$="?pic "+n$+"*":loadn$,8,1
130 print"[147]"tab(14)"[212][210][193][201][204][197][210] [214]1.2"
131 printtab(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
140 printtab(8)"(c)by [212]he crusader c.i.c"
150 print""tab(8)"[208]ress [201] for [201]nformation"
151 printtab(19)"or"
152 printtab(7)"any other key to continue"
160 poke198,0:wait198,1:getg$
170 ifg$="i"thengoto2000
180 input"[147][206]ame of main-program ";n$
190 p=2331:l=len(n$):fori=1tol:pokep,asc(mid$(n$,i,1)):p=p+1:nexti:poke2286,l
200 input"[195]olor of greetings ";p
240 poke2360,p
250 input"backgroundcolor of greetings ";p
290 poke2437,p
300 input"bordercolor of greetings ";p
340 poke2133,p
350 print"[212]ext while loading [205]ain-program"
355 print" now loading
360 [153]" > <"
370 l[178]30:a[178]1589:[141]1000
380 p[178]2786:[129]i[178]a[164]a[170]l:[151]p,[194](i):p[178]p[170]1:[130]
400 [133] "load(NULL)ecret atnddress ";s
410 a[178][181](s[173]256):b[178]s[171]a[172]256
420 [151]2308,a:[151]2307,b
430 [133]"(NULL)ecret byte ";s
440 [151] 2305,s
450 [133]"atnddress of load-routine ";s
460 a[178][181](s[173]256):b[178]s[171]a[172]256
470 [151]2269,a:[151]2268,b:[151]2277,a:[151]2276,b
480 [153]"(NULL)he way of starting the main-program"
490 [153]" 1 - (NULL)(NULL)(NULL) or 2 - mid$(NULL)(NULL) adr."
500 [151]198,0:[146]198,1:[161]g$
510 [139]g$[178]"1"[167]560
520 [139]g$[179][177]"2"[167]500
530 [133]"the address ";s
540 a[178][181](s[173]256):b[178]s[171]a[172]256
550 [151]2309,76:[151]2311,a:[151]2310,b
560 [133]"load(NULL)ame of loader ";n$
570 p[178]49221:l[178][195](n$):[129]i[178]1[164]l:[151]p,[198]([202](n$,i,1)):p[178]p[170]1:[130]:[151]49193,l
580 [153]"atnnd now enter the greetings."
590 [153]"(NULL)lease greet c.i.c if you use this"
600 [153]"fine little program."
610 a[178]1385:l[178]213:[151]a[171]1,62:[151]a[170]l[170]1,60:[141]1000
620 p[178]2562:[129]i[178]a[164]aa:[151]p,[194](i):p[178]p[170]1:[130]:[151]2549,aa[171]a
630 [153]"load (NULL)he loader is ready to save"
640 [153]" (NULL)ress any key
650 poke198,0:wait198,1:getg$
660 sys49152
1000 rem a:bildadresse, l:max laenge
1010 aa=a:ll=l
1015 pokeaa,100
1030 poke198,0:wait198,1:p=peek(631):getg$
1040 ifp=13thenpokeaa,32:return
1050 ifp=157orp=20thenpokeaa,32:aa=aa-1:goto1090
1060 ifp=147orp=19orp=148orp=17orp=145orp=29then1030
1070 ifaa<l+athenprint"[144]"g$"[155]":pokeaa,peek(1024):aa=aa+1
1080 goto1015
1090 ifaa<athenaa=a
1100 goto1015
2000 print"[147] [201]nformation about [212][210][193][201][204][197][210][160][214]1.2"
2010 print"[212]his program is made for people who"
2020 print"don't have any time to create their"
2040 print"own loader to load programs."
2050 print"[212]his program was really written
2060 [153]"by c.i.c. right$'m happy about everyone"
2070 [153]"who greets me if she/he use the program"
2080 [141]3000
2100 [153]"load (NULL)ow the explanation
2110 print"[198]irst you have to enter the name"
2120 print"of the [203][207][193][204][193]-picture to show."
2130 print"[206]ame of main-program : is the name of"
2140 print"the program which will be loaded"
2150 print"by the loader."
2160 print"[193]t the bottom of the screen are"
2170 print"the greetings. [217]ou can choose the"
2180 print"color of the"
2190 print"[212]ext , [194]ackground and [194]order"
2200 gosub 3000
2210 print"[147][215]hile the main-program is loading"
2220 print"there's a text on your screen."
2230 print"[212]his text will be shown in the same"
2240 print"format as your input."
2250 gosub 3000
2260 print"[147][212]he secret address could be an addess"
2270 print"in the main-program."
2280 print"[212]he secrete byte is the byte of this"
2290 print"address."
2300 print"[193]fter loading the main-program the"
2310 print"byte will be poked in the address."
2320 print"[217]ou could use this to [210][213][206] the"
2330 print"main-program only with your loader."
2340 print"[194]ecause without the secret byte the"
2350 print"main-program kills."
2360 gosub3000
2370 print"[147][212]he address of the load-routine."
2380 print"[201]t could be that the main-program"
2390 print"has the same memory as the load-routine"
2400 print"so you can choose this address by"
2410 print"your own."
2420 print"[199]eneral it's 828 or 256."
2430 gosub3000
2440 print"[147][217]ou can choose the way of starting"
2450 print"the main-program."
2455 print" [210]un or [202][205][208]"
2460 print"[206]ame of loader : is the name of"
2470 print"your loader , this loader needs"
2480 print"43 [194]locks."
2490 print"[217]ou can use 213 signs in the [199]reetings"
2510 print"":gosub3000:goto130
2999 end
3000 print" [208]ress any key to continue"
3010 poke198,0:wait198,1:getg$
3020 return